Developer Helper 1: Phil & Dave's Excellent CD/Excellent CD HFS.raw/HyperCard/HyperCard 1.2.2 International/HyperCard British (B-1.2.2)/Stacks/Catalog/background_2757.txt

Text File | 1988-11-08 | 11KB | 528 lines

-- background: 2757 from stack: in
-- bmap block id: 7426
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----









-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=260 top=295 right=320 bottom=287
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=229 top=295 right=320 bottom=256
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=292 right=321 bottom=40
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect barn door close
  go Home
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=455 top=293 right=321 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual effect barn door close
  pop card
end mouseUp



-- part 10 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=216 top=54 right=78 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Product #


-- part 11 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=216 top=82 right=107 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Category


-- part 12 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=216 top=111 right=136 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Type


-- part 13 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=142 top=162 right=291 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Description


-- part 14 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=141 top=54 right=78 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Product #
----- HyperTalk script -----
on mouseUp
  -- SORT
  if highlight of bkgnd button 12 is true
  then
  sort by bkgnd field 1
  exit mouseUp
end if
-- FIND
if highlight of bkgnd button 9 is true
then
ask "What Product # ?"
if it is empty then exit mouseUp
show msg box at 1000,1000 -- Puts the msg box away
put "find " & quote & it & quote into msg box
put " in bkgnd field 1" after msg box
send enterKey
if the result is "Not found"
then
answer "Sorry, no such entry" with "OK"
else
  show msg box at 15,310
end if
end if
end mouseUp





-- part 15 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=142 top=82 right=107 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Category
----- HyperTalk script -----
on mouseUp
  put 2 into fieldNb
  put "What category ?" into question

  -- VIEW
  if highlight of bkgnd button 11 is true then
    put bkgnd field fieldNb into it
    set lockscreen to true
    go next
    find it in bkgnd field fieldNb
    set lockscreen to false
    exit mouseUp
  end if
  -- SORT
  if highlight of bkgnd button 12 is true then
    sort by field fieldNb
    exit mouseUp
  end if
  -- FIND
  if highlight of bkgnd button 9 is true
  then
  ask question
  if it is empty then exit mouseUp
  show msg box at 1000,1000 -- Puts the msg box away
  put "find " & quote & it & quote into msg box
  put " in background field " & fieldNb after msg box
  send enterKey
  if the result is "Not found"
  then
  answer "Sorry, no such entry" with "OK"
else
  show msg box at 15,310
end if
end if

end mouseUp




-- part 16 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=142 top=111 right=136 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Type
----- HyperTalk script -----
on mouseUp
  put 3 into fieldNb
  put "What type ?" into question

  -- VIEW
  if highlight of bkgnd button 11 is true then
    put bkgnd field fieldNb into it
    set lockscreen to true
    go next
    find it in bkgnd field fieldNb
    set lockscreen to false
    exit mouseUp
  end if
  -- SORT
  if highlight of bkgnd button 12 is true then
    sort by field fieldNb
    exit mouseUp
  end if
  -- FIND
  if highlight of bkgnd button 9 is true
  then
  ask question
  if it is empty then exit mouseUp
  show msg box at 1000,1000
  put "find " & quote & it & quote into msg box
  put " in background field " & fieldNb after msg box
  send enterKey
  if the result is "Not found"
  then
  answer "Sorry, no such entry" with "OK"
end if
hide msg box
set the location of msg box to 30,250
end if

end mouseUp




-- part 17 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=142 top=139 right=163 bottom=235
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Description
----- HyperTalk script -----
on mouseUp
  -- SORT
  if highlight of bkgnd button 12 is true then
    sort by bkgnd field 4
    exit mouseUp
  end if
  -- FIND
  if highlight of background button 9 is true
  then
  ask "What ?"
  if it is empty then exit mouseUp
  show msg box at 1000,1000 -- Puts the msg box away
  put "find " & quote & it & quote into msg box
  put " in background field 4" after msg box
  send enterKey
  if the result is "Not found"
  then
  answer "Sorry, no such entry" with "OK"
else
  show msg box at 15,310
end if
exit mouseUp
end if
end mouseUp





-- part 19 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=17 top=126 right=155 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find in...
----- HyperTalk script -----
on mouseUp
  set hilite of bkgnd button id 19 to true
  set hilite of bkgnd button id 22 to false
  set hilite of bkgnd button id 21 to false
  -- Buttons which can be clicked after this one:
  set autoHilite of bkgnd button 5 to true
  set autoHilite of bkgnd button 6 to true
  set autoHilite of bkgnd button 7 to true
  set autoHilite of bkgnd button 8 to true
  set autoHilite of bkgnd button 13 to true
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=395 top=81 right=106 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Index...
----- HyperTalk script -----
on mouseUp
  -- Automatic card numbering
  set cursor to 4 -- A watch
  set lockscreen to true -- Not display cards in the loop
  go to first card
  go next -- This is Help card
  go next -- This is the first product card
  put 1 into index
  put number of cards into total
  repeat until index = total-1  -- Subtract 1 for Help card
    put index into background field id 23
    go next card
    add 1 to index
  end repeat
  setButtons
  set lockscreen to false
end mouseUp




-- part 21 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=17 top=54 right=83 bottom=92
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: View by...
----- HyperTalk script -----
on mouseUp
  set highlight of bkgnd button id 21 to true
  set highlight of bkgnd button id 22 to false
  set highlight of bkgnd button id 19 to false
  -- Buttons which can be clicked after this one:
  set autoHilite of bkgnd button 5 to false
  set autoHilite of bkgnd button 6 to true
  set autoHilite of bkgnd button 7 to true
  set autoHilite of bkgnd button 8 to false
  set autoHilite of bkgnd button 13 to false
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=18 top=90 right=120 bottom=92
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by...
----- HyperTalk script -----
on mouseUp
  set highlight of bkgnd button id 22 to true
  set highlight of bkgnd button id 21 to false
  set highlight of bkgnd button id 19 to false
  -- Buttons which can be clicked after this one:
  set autoHilite of bkgnd button 5 to true
  set autoHilite of bkgnd button 6 to true
  set autoHilite of bkgnd button 7 to true
  set autoHilite of bkgnd button 8 to true
  set autoHilite of bkgnd button 13 to true
end mouseUp



-- part 23 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=446 top=54 right=78 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Card Nb


-- part 24 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=394 top=54 right=78 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Card #
----- HyperTalk script -----
on mouseUp
  -- SORT
  if highlight of bkgnd button 12 is true
  then
  sort numeric by background field 5
  exit mouseUp
end if
-- FIND
if highlight of bkgnd button 9 is true
then
ask "What Card # ?"
if it is empty then exit mouseUp
show msg box at 1000,1000 -- Puts the msg box away
put "find " & quote & it & quote into msg box
put " in bkgnd field 5" after msg box
send enterKey
if the result is "Not found"
then
answer "Sorry, no such entry" with "OK"
else
  show msg box at 15,310
end if
end if
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=52 top=294 right=318 bottom=81
-- title width / last selected line: 0
-- icon id / first selected line: 25002 / 25002
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go to card id 4680
end mouseUp